﻿Imports System.Xml.Serialization

<XmlRoot("Short")> Public Class tagShort
    Inherits tagBase

    <XmlAttribute("Value")> Public Value As Int16

    Public Sub New()

    End Sub

    Friend Sub New(ByVal str As System.IO.Stream)
        MyBase.New(str)

        Value = BitConverter.ToInt16(ReadBytesFromStream(str, 2).Reverse.ToArray, 0)
    End Sub

End Class
